Visual Basic 6 - [HELP]Colorare stringhe in VB

Forum - Visual Basic 6 - [HELP]Colorare stringhe in VB

mirkos90 (Normal User)
Rookie

Messaggi: 42
Iscritto: 13/10/2007

Postato alle 10:11
Venerdì, 29/08/2008

Salve ragazzi XD mi kiedevo (se è gia stato chiesto io non ho trovato alcuna cosa a riguardo, quindi se è già stato kiesto segnalate il link) se è possibile in visual basic creare un highlighter del tipo GeShI in PHP però che funzia all'istante.
Mi spiego molto mejo:
io ho una textarea dove scrivo
<?php
echo("Ciao");
?>
e mentre che scrivo il <?php diventa rosso e grassettato, l'echo diventa blu e le parole dentro le "" diventano rosse..
Sarebbe ancora + comodo se lo script riconoscesse da solo il linguaggio ke si stà scrivendo..

Please mi serve molto questa cosa

GRAZIE

Ultima modifica effettuata da mirkos90 il 29/08/2008 alle 10:16

antometal (Member)
Guru

Messaggi: 691
Iscritto: 12/09/2007

Postato alle 10:40
Venerdì, 29/08/2008

vedi qui
http://www.pierotofy.it/pages/extras/forum/6/26670-syntax_ ...

mirkos90 (Normal User)
Rookie

Messaggi: 42
Iscritto: 13/10/2007

Postato alle 10:47
Venerdì, 29/08/2008

uhm no, non era quello ke cercavo :S:S:S:S
mi serve una cosa del tipo no-paste instantaneo XD

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 11:20
Venerdì, 29/08/2008

dovresti mettere in un timer un codice che cerchi le parole che desideri (funzione Instr()) e poi le colora.

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 14:59
Venerdì, 29/08/2008

scusate cancellate

Ultima modifica effettuata da Overflow il 29/08/2008 alle 15:02

ruggy94 (Member)
Guru

Messaggi: 890
Iscritto: 21/04/2008

Postato alle 15:02
Venerdì, 29/08/2008

Testo quotato

Postato originariamente da Overflow:

prova questo codice

Testo quotato

Codice quotato da http://www.codeproject.com/KB/vb/webcamcapture.aspx :

Codice sorgente - presumibilmente VB.NET

'This program check whether webcam is available or not
' if available then capture and displays in picture box
 
'Created by Dixanta Bahadur Shrestha
'Created Date: 12-March-2006
 
'Programmer does not garuntees if  not functions well
 
Global Const ws_child As Long = &H40000000
Global Const ws_visible As Long = &H10000000
 
Global Const WM_USER = 1024
Global Const wm_cap_driver_connect = WM_USER + 10
Global Const wm_cap_set_preview = WM_USER + 50
Global Const WM_CAP_SET_PREVIEWRATE = WM_USER + 52
Global Const WM_CAP_DRIVER_DISCONNECT As Long = WM_USER + 11
Global Const WM_CAP_DLG_VIDEOFORMAT As Long = WM_USER + 41
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal a As String, ByVal b As Long, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer, ByVal g As Long, ByVal h As Integer) As Long
 
Dim hwdc As Long
Dim startcap As Boolean
Private Sub cmdCapture_Click()
Dim temp As Long
 
  hwdc = capCreateCaptureWindow("Dixanta Vision System", ws_child Or ws_visible, 0, 0, 320, 240, Picture1.hWnd, 0)
  If (hwdc <> 0) Then
    temp = SendMessage(hwdc, wm_cap_driver_connect, 0, 0)
    temp = SendMessage(hwdc, wm_cap_set_preview, 1, 0)
    temp = SendMessage(hwdc, WM_CAP_SET_PREVIEWRATE, 30, 0)
    startcap = True
    Else
    MsgBox ("No Webcam found")
  End If
End Sub
 
Private Sub cmdClose_Click()
Dim temp As Long
If startcap = True Then
temp = SendMessage(hwdc, WM_CAP_DRIVER_DISCONNECT, 0&, 0&)
startcap = False
End If
End Sub
 
Private Sub cmdVideoFormat_Click()
 Dim temp As Long
 If startcap = True Then
  temp = SendMessage(hwdc, WM_CAP_DLG_VIDEOFORMAT, 0&, 0&)
End If
End Sub

http://www.codeproject.com/KB/vb/webcamcapture.aspx

Credo che tu volessi rispondere al post della webcam

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 15:07
Venerdì, 29/08/2008

@ruggy94 ...si infatti.

Credo che dovresti avere un database con tutte le parole chiave dei linguaggi, e poi attraverso un timer (come ha detto grg) andare a controllare se nella textarea ci sia una parole che esiste nel database.

Overflow (Normal User)
Expert

Messaggi: 334
Iscritto: 11/01/2008

Postato alle 15:55
Venerdì, 29/08/2008

ti posto il codice che ho fatto, ma bisogna modificarlo un po.

inserisci un richtextbox chiamala (rb) e un timer(timer1).

Codice sorgente - presumibilmente VB.NET

Dim keyWords() As String
 
Private Sub Form_Load()
Dim value As String
 
Open "C:\keywords.txt" For Input As 1
value = Space(LOF(1))
Line Input #1, value
 
Close #1
 
keyWords = Split(value, ",")
 
For i = 0 To UBound(keyWords)
    keyWords(i) = Replace(keyWords(i), " ", "")
    keyWords(i) = LCase(keyWords(i))
Next i
 
 
 
 
End Sub
 
Private Sub Timer1_Timer()
Dim a, pos As Integer
Dim tmp() As String
Dim val As String
val = rb.Text
val = LCase(val)
 
For i = 0 To UBound(keyWords)
    tmp = Split(val, " ")
    For y = 0 To UBound(tmp)
        If (tmp(y) = keyWords(i)) Then
            a = InStr(1, val, keyWords(i))
            pos = rb.SelStart
            rb.SelStart = a - 1
            rb.SelLength = Len(keyWords(i))
            rb.SelColor = vbBlue
rb.font.bold=true
            rb.SelStart = pos
        End If
    Next y
    rb.SelColor = vbBlack
Next i
 
End Sub

Ultima modifica effettuata da Overflow il 29/08/2008 alle 15:59